home *** CD-ROM | disk | FTP | other *** search
/ Resource for Source: C/C++ / Resource for Source - C-C++.iso / codelib2 / v_02_01 / 2n01050b < prev    next >
Encoding:
Text File  |  1995-11-01  |  316 b   |  16 lines
  1.  
  2.  
  3.  
  4. function leap(y : longint) : boolean;
  5.         begin
  6.         if y mod 4 <> 0 then
  7.                 leap := false
  8.         else if y mod 100 <> 0 then
  9.                 leap := true
  10.         else if y mod 400 = 0 then
  11.                 leap := true
  12.         else 
  13.                 leap := false
  14.         end;
  15.  
  16.